﻿Module Module1
  Sub Main()
    Console.WriteLine(CodFisc.cercaMese("T"))
    Console.WriteLine()
    Console.WriteLine(CodFisc.cercaMese("K"))
    Console.WriteLine()
    CodFisc.stampaTabellaCodiciMese()
    Console.WriteLine()
    Console.WriteLine(CodFisc.cercaMese(7))
    Console.WriteLine()

    ' questo codice provoca un errore (Option Strict On)
    ' Dim dt As DateTime = DateTime.Now
    ' Console.WriteLine(CodFisc.cercaMese(dt))

    Console.ReadLine()
  End Sub
End Module
